home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / boxes / aboutsg / demo1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-03-03  |  2.3 KB  |  65 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Demo of About Box"
  6.    ClientHeight    =   1575
  7.    ClientLeft      =   1995
  8.    ClientTop       =   2670
  9.    ClientWidth     =   5775
  10.    ClipControls    =   0   'False
  11.    Height          =   2265
  12.    Icon            =   DEMO1.FRX:0000
  13.    Left            =   1935
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   1575
  17.    ScaleWidth      =   5775
  18.    Top             =   2040
  19.    Width           =   5895
  20.    Begin Label Label1 
  21.       Alignment       =   2  'Center
  22.       BackStyle       =   0  'Transparent
  23.       Caption         =   "A demo from Steven Gotz. I did not write this code. I used code lifted from a PC Magazine Utility. Please feel free to distribute this to anyone you please. It is OK, I promise."
  24.       FontBold        =   -1  'True
  25.       FontItalic      =   0   'False
  26.       FontName        =   "MS Sans Serif"
  27.       FontSize        =   12
  28.       FontStrikethru  =   0   'False
  29.       FontUnderline   =   0   'False
  30.       ForeColor       =   &H00800000&
  31.       Height          =   1350
  32.       Left            =   0
  33.       TabIndex        =   0
  34.       Top             =   180
  35.       Width           =   5790
  36.    End
  37.    Begin Menu mnuFile 
  38.       Caption         =   "&File"
  39.       Begin Menu mnuExit 
  40.          Caption         =   "E&xit"
  41.       End
  42.    End
  43.    Begin Menu mnuHelp 
  44.       Caption         =   "&Help"
  45.       Begin Menu mnuAbout 
  46.          Caption         =   "&About"
  47.       End
  48.    End
  49. Sub Form_Load ()
  50. mnuHelp.Caption = Chr$(8) + mnuHelp.Caption
  51. End Sub
  52. Sub mnuAbout_Click ()
  53. 'The Icon will be taken from the application.
  54. 'This is really quite easy to use.
  55. 'I use this very program as a starter for almost
  56. 'all of my apps now.  Modify the DisplayAboutBox line
  57. 'and change the MyInfoLabel label caption and
  58. 'the label1 caption and you should be in business.
  59. '                  Aplication, ver,   year    company                  verbose appname        date
  60. DisplayAboutBox form1, "The About Box Demo", 1.01, "1995", "Software Novices, Inc", "A demo of how to implement this About Box", "Mar 3, 1995", 0, True, 0, &HC0C0C0
  61. End Sub
  62. Sub mnuExit_Click ()
  63. Unload form1
  64. End Sub
  65.